home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 061-070 / amok65 / bobedi / testbobedi.bas < prev    next >
BASIC Source File  |  1993-11-04  |  1KB  |  32 lines
  1. '---------------------------------------------------------------------------
  2. '  :Program.    TestBobEdi.bas
  3. '  :Contents.   zeigt einen Bob als Demo fuer BobEdi
  4. '  :Author.     Frank Lömker
  5. '  :Copyright.  FreeWare, siehe Dok-File fuer BobEdi
  6. '  :Language.   Basic
  7. '  :Translator. Amiga Basic V1.2
  8. '  :History.    V1.0, [Frank Lömker] 26-Dez-91
  9. '  :Bugs.       keine bekannt
  10. '---------------------------------------------------------------------------
  11.   SCREEN 1,320,256,2,1
  12.   WINDOW 2,"TestBobEdi  <TASTE>",,3,1
  13.   OPEN "df0:BobEdi/testBas.pal" FOR INPUT AS 1   ' Farben laden
  14.   f$=INPUT$ (LOF(1),1)
  15.   CLOSE 1
  16.   FOR i=0 TO LEN(f$)/3-1
  17.     PALETTE i,ASC(MID$(f$,i*3+1))/16,ASC(MID$(f$,i*3+2))/16,ASC(MID$(f$,i*3+3))/16
  18.   NEXT i
  19.   OPEN "df0:BobEdi/testBas" FOR INPUT AS 1       ' Bob laden
  20.   OBJECT.SHAPE 1,INPUT$(LOF(1),1)
  21.   CLOSE 1
  22.   OBJECT.X 1,10
  23.   OBJECT.Y 1,50
  24.   OBJECT.ON
  25.   WHILE INKEY$="" AND MOUSE(0)=0
  26.     OBJECT.X 1,MOUSE(1)-35
  27.     OBJECT.Y 1,MOUSE(2)-16
  28.   WEND
  29.   WINDOW CLOSE 2
  30.   SCREEN CLOSE 1
  31.   END
  32.